VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "dmMetaData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private theSid As String
Private theStart As Long
Private theLength As Long

Public Property Let Sid(ByVal vData As String)
    theSid = vData
End Property

Public Property Get Sid() As String
    Sid = theSid
End Property


Public Property Let Start(ByVal vData As Long)
    theStart = vData
End Property

Public Property Get Start() As Long
    Start = theStart
End Property

Public Property Let Length(ByVal vData As Long)
    theLength = vData
End Property

Public Property Get Length() As Long
    Length = theLength
End Property


